約 2,252,468 件
https://w.atwiki.jp/ranstclubksu/pages/118.html
鳥人戦隊ジェットマン 【クロスチェンジャー@鳥人戦隊ジェットマン】 激走戦隊カーレンジャー 【アクセルチェンジャー@激走戦隊カーレンジャー】 【必殺技説明】なし 【能力】左手に装着されたアクセルブレスと起動キーのアクセルキーからなるカーレンジャーの変身アイテム。アクセルブレスは通信機にもなる。 アクセルチェンジャーはクルマジックパワーにより精製され、破壊されても代用品は存在しない。 しかし、機械ではあるようで、壊れたアクセルブレスを菜摘が安全ピンで修理したこともあった。 【関連武器】なし 【劇中保有者】カーレンジャー全員 ※スーパー戦隊バトルロワイヤルまとめサイトより転載。 【シグナイザー@激走戦隊カーレンジャー】 ─劇中─ 【必殺技説明】 □超高熱ヒートビーム ガンモードにすると使用可能。 □超冷凍コールドビーム ガンモートにすると使用可能。 □ショック波スマッシュビーム ガンモードにすると使用可能。 【能力】 IDモード、ガンモード、ポリスバトンモードの3種類に変形可能。 IDモードは、警察手帳で千時間分の録音機能がついている。 ガンモードは、上記の必殺技が使用できる。 ポリスバトンモードは、ショック波を出し、抵抗する相手をしびれさせて逮捕することができる。 ちなみに、これは常にシグナルマンの右太ももの横に収納されている。 【関連武器】シグナルホイッスル 【劇中保有者】シグナルマン・ポリス・コバーン ※スーパー戦隊バトルロワイヤルまとめサイトより転載。 電磁戦隊メガレンジャー 【デジタイザー@電磁戦隊メガレンジャー】 【必殺技説明】なし 【能力】・「インストール!メガレンジャー」と叫びながら[335(Enter)]を押すことによってメガレンジャーに変身することができる。 ・サイバースライダー、デジタンク、ギャラクシーメガなどを呼ぶことができる。 ・デジタイザー同士による通信も可能。 【関連武器】バトルライザー ケイタイザー デジタンク サイバースライダー ギャラクシーメガ 【劇中保有者】メガレンジャー ※スーパー戦隊バトルロワイヤルまとめサイトより転載。 【ケイタイザー@電磁戦隊メガレンジャー】 【必殺技説明】なし 【能力】「2580」のコマンドを押して「ケイタイザー、インストール!」と叫ぶとメガシルバーに変身できる。 通信機能やメカの呼び出しも可能。 【関連武器】シルバーブレイザー 【劇中保有者】早川裕作 ※スーパー戦隊バトルロワイヤルまとめサイトより転載。 未来戦隊タイムレンジャー 【クロノチェンジャー@未来戦隊タイムレンジャー】 【必殺技説明】なし 【能力】「クロノチェンジ!」といえば、誰でもタイムレンジャーに変身できる優れもの。 通信機能もついている。また、変身後もつけたままになっている。 中盤で、「アクセルストップ」という超加速機能がつけられた(使用可能時間は3秒のみ。使用中はスーツの耐久性が下がる)。 クロノアクセスで専用武器を出すことも可能。 【関連武器】ダブルベクター ボルユニット 【劇中保有者】浅見竜也、アヤセ、ユウリ、シオン、ドモン、リュウヤ ※スーパー戦隊バトルロワイヤルまとめサイトより転載。 【Vコマンダー@未来戦隊タイムレンジャー】 【必殺技説明】なし。 【能力】タイムファイヤーに変身できる。変身の掛け声は「タイムファイヤー!」 当初はボイスキーがかかっていたが、最終回寸前で解除され、誰でも変身できるように。 また、Vレックスを操作することもできる。 【関連武器】DVディフェンダー 【劇中保有者】滝沢直人、浅見竜也、リュウヤ ※スーパー戦隊バトルロワイヤルまとめサイトより転載。 【ヒュプノピアス@未来戦隊タイムレンジャー】 【必殺技説明】なし。 【能力】受信機を相手の脳に刺すことで脳波に作用し、送信機で相手を自在に操ることができる。 また、これをつけている者を圧縮冷凍することはできない。 爆弾製造犯DDラデスがこれの餌食となった。 【関連武器】なし。 【劇中保有者】ロンダーズファミリー ※スーパー戦隊バトルロワイヤルまとめサイトより転載。 轟轟戦隊ボウケンジャー 【アクセルラー@轟轟戦隊ボウケンジャー】 【必殺技説明】特になし 【能力】使用者をボウケンジャーに変身させる冒険ツール。変身ボタンを押し、下部にあるゴーゴータービンを回すことでボウケンジャーへの変身は行われる。 コマンドモード、サーチモード、モバイルモードの3つのモードがあり、コマンドモードではボウケンジャーへの変身、ゴーゴービークルの発進・合体指示を行う。 サーチモードではプレシャス反応やハザードレベルの確認、ライト機能が扱える。モバイルモードは通常の待機状態を指す。 また、通信、カメラ機能も保有している。なお、スーツにはDNAが記録されているため、本人以外が変身することはできない。 【関連武器】サバイバスター、アクセルテクター 【劇中保有者】明石暁、伊能真墨、最上蒼太、間宮菜月、西堀さくら ※スーパー戦隊バトルロワイヤルまとめサイトより転載。 【ゴーゴーチェンジャー@轟轟戦隊ボウケンジャー】
https://w.atwiki.jp/supergirl121/pages/151.html
バ○ダッド郊外に駐留する一個小隊との連絡が取れなくななった。 まさに突然の出来事だった。 司令部は、情報把握のため治安維持部隊の緊急派遣を決めた。 キュラキュラ、キュラキュラ、、、 キャタピラを回転させ、街角に躍り出たのは、U○A主力戦車のM1エ○ブラムス。 静寂な小さな町を、耳をつんざくエンジン音を響かせながら進んでいく2台の戦車。 ガチャとハッチが開くと、二人の米軍兵士が出てきた。 サブマシンガンを携え、重装備だ。 シュッ! 二人の兵士は、すごいスピードで何か通過するのを感じた。 振り返ると、赤と青の物体が、いや女性のシルエットが戦車の正面に対峙している。 スーパーガール!! 「あの情報は本当だったのか!!」 スーパーガールは、戦車に手をかけると、それを軽々と持ち上げてしまった。 そのまま、60トンを越える戦車を砲丸投げでもするように、軽く上空に放り投げた、、、、 ドガーーン!!! はるか、数百メートル離れた砂漠で、火柱が炸裂し、あっという間に黒煙が上空を焦がした。 残された戦車の砲塔が、ブウーンとモーター音を立てると、照準を彼女にあわせる。 サッ、、音もなく彼女の姿が消えた。 トン、 戦車の装甲に真紅のブーツが着地した瞬間、 ガコン!!! 120mm砲の主砲に、振り下ろされる真紅のブーツ。 鋼鉄のはずの砲身がアメのように、ぐにゃりとねじ曲がる。 彼女の目からヒートビジョンが、エンジン部に照射され、 装甲が真っ赤になったとき、 チュ、ドオーン、、、!! 轟音が戦車全体を襲った。 爆発の中で煙がもうもうと立ち込める、、 先に戦車を降りたことで命拾いをした二人が見たのは、煙の中から歩み寄るスーパーガール。 とっさに、路地裏に逃げ込もうとしたが、 目の前には、U○Aのスーパーヒロインであるはずの彼女が、仁王立ちで彼らの動きを阻んだ。 「あやまりなさい!!」 「そ、そんな、、、我々は命令で、、、」 と男たちは、彼女に土下座をする。 「今日のことは、絶対に口外しないことを約束できるわね? もしできなければ、、、二度としゃべれないようにするわよ。この場で。」 ____________________________________________ この国の大統領、いや独裁者、フセ○ンの眺める大型ディスプレイには、 スーパーガールと男たちのやりとりが、鮮明に映し出されていた。 「どうした?まさかこの男たちを逃がすのではないだろうな。」 とフセ○ンが、部下の将校をにらみつけると、 「いえ、そんなことはありえません。ただコマンドは「戦車隊の殲滅」なので、、 もしかすると、攻撃対象の戦車が消滅したので、、、 コマンドを再入力してみます。「男たちの処分」に。」 というと将校は、隣に座るコンピューターのオペレーターに、目で合図を送ると、 オペレーターは、キーボードから数行の命令を入力した。 入力内容を確認した将校が報告する。 「閣下、これから彼女のパワーによるショーを、ご覧ください。」 ____________________________________________ 男たち、ビルとジャクソンは、恐怖の中でわずかな光明を感じた。 彼女は自分たちに危害をくわえないのではないか。 逆に戦車の中で何も分からないうちに、命を失った仲間たちのことを思うと、 二人が助かるのが、なぜか不思議な感覚だったが、 帰国を待つ、妻と幼い子供たちの笑顔が脳裏を横切る。 ビルが土下座状態から立ち上がろうとした。 そのとき新たなコマンドがスーパーガールに伝わった。 立ち上がろうとしたビルの腹を、真紅のブーツが蹴り上げた。 ハリボテでできたおもちゃの人形のように、ゴロゴロゴロ、、、とビルの身体が、地面を転がる。 「グゴベゲホッ!!!ゴエエッ、、、、、」 まだ胃の中にあった食べ物を、血の塊と一緒に勢い良く吐き出し、白目を剥いて失神する。 「まだ息はあるようね。私の蹴りは、あなたの内臓はほとんど破裂したはずなのに、意外と元気ね。 そう、わたしのコマンドはあなた方の命を絶つこと、、に変わっちゃったの。」 というと、彼女はツカツカと、彼の元に歩みを進めた。 「わたしには勝てるわけないし、逃げることもできないわ、、あきらめて頂戴ね。」 スーパーガールは、うつぶせにぐたっと気を失ったビルの頭を鷲づかみにする。 赤いブーツで背中を踏みつけた。 「ぎゃああああーーー!!!!」 激痛の中でも妻と子供たちを一瞬思い浮かべた家族思いのビル。 彼女は無造作に、頭をグイッと引っ張ると、背骨からメリメリメシッと異音がもれ、頭が背中に密着した。 中国雑技団ですら不可能、人体の構造上はありえない状況だ。 さらに彼の身体は折りたたまれていく、、 バキボキ、、メリッ、グシャ、、、、 骨と組織が破壊される音だけが響く。 人間であった肉と骨の交じり合った塊は半径50センチほどに丸められた。 ジャクソンは、慌てふためきながらサブマシンガンをかまえて、彼女めがけて引き金をひいた。 ババババッ、バ、バン、バン、、 乾いた音とともに発射された銃弾は、たしかに彼女の背中と頭に命中した。 しかし、、、 「そんな、おもちゃで、私をどうにかできるとも思っているのかしら?」 と言いながら、彼のほうに歩み寄る。 「や、やや、、めて、、、命だけは、、、」 「だから、言ってるじゃない。私はあなたを殺さないといけないの、わがままねえ。いうことを聞きなさい。」 自動小銃を彼の手から奪い取ると、雑巾を絞るように、グニッ、グニッとねじってしまった。 ジャクソンは逃げ出そうと振り返るが、 スーパーガールは、瞬時に背後から彼の左足に自分の左足をからめ、左腕を首の後ろに巻きつけた。 コブラツイスト! ジャクソンは、彼女の肉体とぴったり密着すると、 その淡く柔和な感覚に襲われた、天使の羽に抱かれる様に安らぐ感覚であった。 スーパーガールの身体は、普通の少女と同じく柔らかく弾力に満ちていた。 「どう、気持ちいいでしょ。」 「どど、、どうするつもりだ?」 「決まっているじゃない。」 スーパーガールは、ジャクソンの足にからめた右足にじわじわと力を込めた。 「いい、痛い、、やや、やめてくれ、、、、、」 グシャ、、メリ、ゴキン! からめていたはずのスーパーガールの足はまっすぐに伸び、 変わりにジャクソンの右足から骨盤が、彼女の足に絡みつく肉片と化した。 鋼鉄の腕が、ジャクソンの首から胸を締め付けはじめた。 メリメリ、、ボキボキボキ、、、グキャ、、 という粉砕音とともに、彼の上半身は抵抗を失った。 スーパーガールの腕の締め付けは、ちょうど胸の部分で、上半身を二つに切断した。 「はい。おわりね。」 ____________________________________________ フセ○ンは、一部始終を微笑みながら眺めていた。 「すばらしい!完璧だ!!彼女一人で駐留軍を壊滅させることもできる。 それか、いっそのこと女スパイとして敵国に潜り込ませ、大統領に死の抱擁でもプレゼントするかな。」 (おしまい)
https://w.atwiki.jp/aster-infra/pages/51.html
ファイルをgzip圧縮及び展開する。(拡張子は.gzになる。) ただし、高い圧縮率はあるがアーカイバではないため、複数ファイルが格納してあるディレクトリ自体の 圧縮には不向きである。 # gzip aaa aaaファイルをgzip圧縮する。 # gzip -d aaa aaa.gzを展開する。 tar.gz,zip.gz比較
https://w.atwiki.jp/srw-airl/pages/19.html
スーパーロボット大戦W ニンテンドーDS用ソフトとして初めて発売されたスパロボで ガンダムSEED ASTRYやテッカマンブレードⅡなどの初参戦作品が登場しています。 難易度はぬるめ。 しかし、携帯機で繰り返しプレイすることを前提に開発されている為 充分に楽しめる秀逸な作品となっています。 特筆すべきは主人公機の圧倒的な性能で、 多分スパロボ史上最強に近い主人公機だと思います。 (文責:ギャレファUD) オススメユニット BGM変更 隠しユニット入手法 オススメ改造 バグ技「魂+熱血同時掛け」
https://w.atwiki.jp/briah/pages/449.html
ホルの小部隊。 初心者もいるけどとても有望。
https://w.atwiki.jp/msl-wiki/pages/140.html
浄壇使者八戒(光) スターモンリーグ考察 ジュエル考察 似たスキルの組み合わせを持つスターモン ストーリーチョハッカイ チョゴノウ 浄壇使者八戒 浄壇使者八戒(光) 浄壇使者八戒 レアリティ:☆5 アイコン編集 属性 ステータス レベル50(60) 入手方法 孵化チョハッカイ→チョゴノウ→浄壇使者八戒 バトルタイプ 系 HP () ノーマルスキル ワン・ツー・パンチ 攻撃力 () アクティブスキル パワフル・アッパーカット(単体攻撃) 防御力 () スーパースキル なし 回復力 () 亜種スキル 生命の恩寵(40~45%:限定無し) ブティック なし スキル レベル1 レベル2 レベル3 レベル4 レベル5 スキル名(☆3) %.ターン スキル名(☆5) %.ターン スターモンリーグ考察 通常リーグ 特別リーグ(攻撃側:リーダーSP最大、防衛側:隠しSP最大) チャンピオンリーグ 相性のいいスターモン スターモン名(属性) 対策 スターモン名(属性) ジュエル考察 似たスキルの組み合わせを持つスターモン ストーリー チョハッカイ チョゴノウ 浄壇使者八戒
https://w.atwiki.jp/msl-wiki/pages/141.html
浄壇使者八戒(闇) スターモンリーグ考察 ジュエル考察 似たスキルの組み合わせを持つスターモン ストーリーチョハッカイ チョゴノウ 浄壇使者八戒 浄壇使者八戒(闇) 浄壇使者八戒 レアリティ:☆5 アイコン編集 属性 ステータス レベル50(60) 入手方法 孵化チョハッカイ→チョゴノウ→浄壇使者八戒 バトルタイプ 系 HP () ノーマルスキル ワン・ツー・パンチ 攻撃力 () アクティブスキル パワフル・アッパーカット(単体攻撃) 防御力 () スーパースキル なし 回復力 () 亜種スキル 生命の恩寵(40~45%:限定無し) ブティック なし スキル レベル1 レベル2 レベル3 レベル4 レベル5 スキル名(☆3) %.ターン スキル名(☆5) %.ターン スターモンリーグ考察 通常リーグ 特別リーグ(攻撃側:リーダーSP最大、防衛側:隠しSP最大) チャンピオンリーグ 相性のいいスターモン スターモン名(属性) 対策 スターモン名(属性) ジュエル考察 似たスキルの組み合わせを持つスターモン ストーリー チョハッカイ チョゴノウ 浄壇使者八戒
https://w.atwiki.jp/msl-wiki/pages/139.html
浄壇使者八戒(木) スターモンリーグ考察 ジュエル考察 似たスキルの組み合わせを持つスターモン ストーリーチョハッカイ チョゴノウ 浄壇使者八戒 浄壇使者八戒(木) 浄壇使者八戒 レアリティ:☆5 アイコン編集 属性 ステータス レベル50(60) 入手方法 孵化チョハッカイ→チョゴノウ→浄壇使者八戒 バトルタイプ 系 HP () ノーマルスキル ワン・ツー・パンチ 攻撃力 () アクティブスキル パワフル・アッパーカット(単体攻撃) 防御力 () スーパースキル なし 回復力 () 亜種スキル 生命の恩寵(40~45%:限定無し) ブティック なし スキル レベル1 レベル2 レベル3 レベル4 レベル5 スキル名(☆3) %.ターン スキル名(☆5) %.ターン スターモンリーグ考察 通常リーグ 特別リーグ(攻撃側:リーダーSP最大、防衛側:隠しSP最大) チャンピオンリーグ 相性のいいスターモン スターモン名(属性) 対策 スターモン名(属性) ジュエル考察 似たスキルの組み合わせを持つスターモン ストーリー チョハッカイ チョゴノウ 浄壇使者八戒
https://w.atwiki.jp/hmiku/pages/17466.html
【登録タグ Temporu Z 巡音ルカ 曲 鏡音レン】 作詞:Temporu 作曲:Temporu 編曲:Temporu 唄:巡音ルカ・鏡音レン 歌詞 (ピアプロより転載) You yourself said to, no less Maybe I've been believe it 抱えこんで もう持ちきれないような 言葉での説明がついちゃうんだとしたら ここでは 忘れて 眠りにつかせて もうね とけたときのこと ずっと耳に残って 気にしてたままでさ 月曜へ向かうよ I threw a slow ball in around ひとつも届かない あせりがちでもさ 自然に合わせてた What about it No, that's not what I was talking about Somewhere If you have a naked lie I guess I am an idiot You've got me talking 考え込んで どうすればいいのだ また眠りについたら ここであいましょう 一人で壊すのが怖いなら 二人で壊そうか I wanted you to know that I've been thinking いつでもほどけない 絡まってはとける 気がついたときに もうね いくつも経ったけど ずっと君に向かって 話しかけてた もう 日曜が終わるよ また眠りにつくまで 寒いジョークきかせて 一人で迷うのがつらいなら 二人で迷おうよ Closed my mind and the things 少しは変われたかも 話すこともない あどけない声に そんな とじた世界から きっと君を見てた それも胸に抱いて 月曜に会おう コメント 相変わらずルカのコーラスが綺麗。出だしがかなり好き。 -- 名無しさん (2011-09-12 15 35 55) 名前 コメント
https://w.atwiki.jp/skmt200x/pages/94.html
7-ZipのEXEをコマンドライン操作して、パスワード保護ZIPを自動生成するスクリプト コード TOPへ編集 コード Option Explicit Const PASSWORD_LENGTH = 8 Const ZIPEXE_PATH = """C \Program Files\7-Zip\7z.exe""" Dim fFS Set fFS = Nothing Function CreatePasswrodSource(ByRef aSource, ByRef aReading) Dim aDigitC, aDigitR aDigitC = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9") aDigitR = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9") Dim aLCaseC, aLCaseR aLCaseC = Array( _ "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _ "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _ "u", "v", "w", "x", "y", "z") aLCaseR = Array( _ "エー", "ビー", "シー", "ディー", "イー", "エフ", "ジー", "エイチ", "アイ", "ジェイ", _ "ケー", "エル", "エム", "エヌ", "オー", "ピー", "キュー", "アール", "エス", "ティー", _ "ユー", "ヴイ", "ダブリュー", "エックス", "ワイ", "ゼット") Dim aUCaseC, aUCaseR aUCaseC = Array( _ "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _ "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _ "U", "V", "W", "X", "Y", "Z") aUCaseR = Array( _ "エー", "ビー", "シー", "ディー", "イー", "エフ", "ジー", "エイチ", "アイ", "ジェイ", _ "ケー", "エル", "エム", "エヌ", "オー", "ピー", "キュー", "アール", "エス", "ティー", _ "ユー", "ヴイ", "ダブリュー", "エックス", "ワイ", "ゼット") Dim aSymbolC, aSymbolR aSymbolC = Array( _ "`", "~", "!", "@", "#", _ "$", "%", "^", " ", "*", _ "(", ")", "_", "-", "+", _ "=", "{", "}", "[", "]", _ "\", "|", " ", ";", """", _ " ", " ", " ", ",", ".", _ "?", "/") aSymbolR = Array( _ "バッククォート", "チルダ", "感嘆符", "アットマーク", "シャープ", _ "ドル記号", "パーセント", "ハット", "アンパサンド", "アスタリスク", _ "左括弧", "右括弧", "アンダースコア", "ハイフン", "プラス", _ "イコール", "左中括弧", "右中括弧", "左大括弧", "右大括弧", _ "円記号", "パイプ", "コロン", "セミコロン", "ダブルクォート", _ "シングルクォート", "小なり", "大なり", "カンマ", "ピリオド", _ "疑問符", "スラッシュ") Dim vLength vLength = 9*(UBound(aDigitC) + 1) + 3*(UBound(aLCaseC) + 1) + 3*(UBound(aUCaseC) + 1) ReDim aSource(vLength) ReDim aReading(vLength) Dim vI, vJ, vPos vPos = 0 For vJ = 1 To 9 Step 1 For vI = 0 To UBound(aDigitC) Step 1 aSource(vPos + vI) = aDigitC(vI) aReading(vPos + vI) = aDigitR(vI) Next vI vPos = vPos + UBound(aDigitC) + 1 Next vJ For vJ = 1 To 3 Step 1 For vI = 0 To UBound(aLCaseC) Step 1 aSource(vPos + vI) = aLCaseC(vI) aReading(vPos + vI) = aLCaseR(vI) Next vI vPos = vPos + UBound(aLCaseC) + 1 Next vJ For vJ= 1 To 3 Step 1 For vI = 0 To UBound(aUCaseC) Step 1 aSource(vPos + vI) = aUCaseC(vI) aReading(vPos + vI) = aUCaseR(vI) Next vI vPos = vPos + UBound(aUCaseC) + 1 Next vJ CreatePasswrodSource = True End Function Function CreatePassword(ByRef rPassword, ByRef rReading, ByRef aSource, ByRef aReading, pLength, pDelimiter) If ((UBound(aSource) 0) Or (UBound(aReading) 0) Or (pLength 6) Or Len(pDelimiter) = 0) Then CreatePassword = False Exit Function End If Call Randomize Dim vI, v, vSourceSize vSourceSize = UBound(aSource) + 1 For vI = 1 To pLength Step 1 v = Int(Rnd*vSourceSize) 0~(vSourceSize - 1)の整数乱数 If (vI 1) Then rPassword = rPassword aSource(v) rReading = rReading " " aReading(v) Else rPassword = aSource(v) rReading = aReading(v) End If Next vI CreatePassword = True End Function Function IsPasswordComplex(pPassword, pLength) Dim bDigit, bLCaseA, bUCaseA, bSymbol bDigit = False bLCaseA = False bUCaseA = False bSymbol = False If (Len(pPassword) pLength) Then IsPasswordComplex = False Exit Function End If Dim vI, vScore For vI = 1 To Len(pPassword) Step 1 Dim vChar vChar = Mid(pPassword, vI , 1) If ((Asc("0") = Asc(vChar)) And (Asc(vChar) = Asc("9"))) Then bDigit = True ElseIf ((Asc("a") = Asc(vChar)) And (Asc(vChar) = Asc("z"))) Then bLCaseA = True ElseIf ((Asc("A") = Asc(vChar)) And (Asc(vChar) = Asc("Z"))) Then bUCaseA = True Else bSymbol = True End If Next vI vScore = 0 If (bDigit) Then vScore = vScore + 1 End If If (bLCaseA) Then vScore = vScore + 1 End If If (bUCaseA) Then vScore = vScore + 1 End If If (bSymbol) Then vScore = vScore + 1 End If If (vScore = 3) Then IsPasswordComplex = True Else IsPasswordComplex = False End If End Function Function GetFileName(ByVal pPath) Dim vPos, vName vPos = InstrRev(pPath, ".") If (vPos 0) Then vName = Left(pPath, vPos - 1) Else vName = pPath End If GetFileName = vName End Function Function IsFilePath(ByVal pPath) If (fFS Is Nothing) Then Set fFS = WScript.CreateObject("Scripting.FileSystemObject") End If If (Len(pPath) 0) Then IsFilePath = fFS.FileExists(pPath) Else IsFilePath = False End If End Function Function IsFileExists(ByVal pPath) If (fFS Is Nothing) Then Set fFS = WScript.CreateObject("Scripting.FileSystemObject") End If If (Len(pPath) 0) Then IsFileExists = fFS.FileExists(pPath) Else IsFileExists = False End If End Function Function GetCommandLine(rCmdLine, rZipPath, rTxtPath, ByVal pPath, ByVal pPassword) If Not ((Len(pPath) 0) And (Len(pPassword) 0)) Then GetCommandLine = False Exit Function End If Dim vTarget If (IsFilePath(pPath)) Then rZipPath = GetFileName(pPath) ".zip" rTxtPath = GetFileName(pPath) "-Password.txt" vTarget = pPath Else rZipPath = pPath ".zip" rTxtPath = pPath "-Password.txt" vTarget = pPath "\*" End If rCmdLine = ZIPEXE_PATH " a -scsUTF-8 -ssc- -tzip -mx9 -r -p" pPassword " """ rZipPath """ """ vTarget """" GetCommandLine = True End Function Function ExecuteCommandLine(ByVal pCmdLIne) Dim oWSH Set oWSH = WScript.CreateObject("WScript.Shell") ExecuteCommandLine = oWSH.Run(pCmdLIne, 0, True) Set oWSH = Nothing End Function Sub OutputPasswordToFile(ByVal pPath, ByVal pPassword, ByVal pReading) If (fFS Is Nothing) Then Set fFS = WScript.CreateObject("Scripting.FileSystemObject") End If Dim oTxtFile, vMessage Set oTxtFile = fFS.CreateTextFile(pPath, False, True) vMessage = "パスワードは " pPassword " です。" vbCrLf _ "(" pReading ") - " Len(pPassword) "文字" Call oTxtFile.WriteLine(vMessage) Call oTxtFile.Close Set oTxtFile = Nothing End Sub //////////////////////////////////////////////////////////////////////////////// If (WScript.Arguments.Count = 0) Then Call WScript.Echo("ファイルパス・フォルダパスを" vbCrLf "指定するかドロップしてください。") Call WScript.Quit(1) End If パスワードソースの生成 Dim bResult, aSource(), aReading() bResult = CreatePasswrodSource(aSource, aReading) 複雑なパスワードの生成 Dim vPassword, vReading bResult = CreatePassword(vPassword, vReading, aSource, aReading, PASSWORD_LENGTH, " ") bResult = IsPasswordComplex(vPassword, PASSWORD_LENGTH) Do Until (bResult) bResult = CreatePassword(vPassword, vReading, aSource, aReading, PASSWORD_LENGTH, " ") bResult = IsPasswordComplex(vPassword, PASSWORD_LENGTH) Loop コマンドライン文字列の生成 Dim vCmdLine, vZipPath, vTxtPath bResult = GetCommandLine(vCmdLine, vZipPath, vTxtPath, WScript.Arguments.Item(0), vPassword) If (Not bResult) Then Call WScript.Echo("アーカイヴコマンドラインの" vbCrLf "作成に失敗しました。") Call WScript.Quit(1) End If 出力ファイルのチェック If (IsFileExists(vZipPath)) Then Call WScript.Echo("""" vZipPath """" vbCrLf "は既に存在します。") Call WScript.Quit(1) End If If (IsFileExists(vTxtPath)) Then Call WScript.Echo("""" vTxtPath """" vbCrLf "は既に存在します。") Call WScript.Quit(1) End If アーカイヴコマンドの実行 If (Not ExecuteCommandLine(vCmdLine) = 0) Then Call WScript.Echo("アーカイヴコマンドラインの実行に失敗しました。") Call WScript.Quit(1) End If Call OutputPasswordToFile(vTxtPath, vPassword, vReading) Set fFS = Nothing 最終更新日 [2010-02-07]